@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr *480*a000 org $480 opt %10101portA equ 54016strig equ 644right } equ %00001000left equ %00000100down equ %00000010up equ %00000001fzstpleft equ 16}fzstpright equ 17pmadres equ $b000__zero equ $f0_memory equ __zero+2reals equ __zer}o+4 lda pl1 sta reals+1 jsr }init jsr dli_on jsr translacja lda #0 ldx #0_clear sta }pmadres+1024,x sta pmadres+1280,x sta pmadres+1536,x sta pmadres+1792,x } sta msadres,x inx bne _clear lda #3 sta 53277 } lda #8 sta 704 lda #6 sta 705 lda #15 sta 706 } lda #2 sta 707 lda #12 sta 711 lda 623 } ora #%00010001 sta 623 lda >pmadres sta 54279loop equ * } lda _fz05 eor #255 sta _fz05 lda _service_nr beq _lot jsr _jo}ystick jsr _main jsr _pmxy jmp _ptl_lot jsr _air_hero jsr _pmXY_ptl lda 20_p}tl2 cmp 20 beq _ptl2 lda _service_nr beq _ptl3 jsr pocis}ki jmp _ptl4_ptl3 jsr _movemissile jsr _miskolision_ptl4 inc licz } lda licz cmp #2 bne _ptl lda #0 sta licz jm}p looplicz dta b(0)_joystick equ * lda portA and #%00001111 eor #%0000}1111 sta _new_joy and #down bne _air_service lda _old_joy } and #up bne _notchange lda _new_joy sta _old_joy_notchange rts}_air_service equ * lda _old_joy and #up beq _notup rts_notu}p lda strig beq _yes rts_yes lda #1 jsr _Y_rozpisz } lda #$3c jsr _X_rozpisz jsr _loc bne _yes2 rts_yes2 } lda _service_nr eor #255 sta _service_nr jsr _air_fire rts}_skrajna_wart equ * lda _faza_nr and #%00000111 bne _skrexit l}da _faza_nr sec sbc #8 sta _faza_nr_skrexit rts_rig jmp _ri}ght_lft jmp _left_main equ * jsr _ch_obs lda _st_move be}q _m2 dec _st_move lda _faza_nr cmp #16 beq _lft c}mp #8 bcs _rig bcc _lft_m2 lda #0 jsr _drop cpy #1 } bne _m3 rts_m3 lda _old_joy and #right bne _rig } lda _old_joy and #left bne _lft lda _old_joy and #up !} bne _up lda _faza_nr cmp #fzstpleft beq _ex_stp cm"}p #fzstpright beq _ex_stp cmp #8 bcs _stp_right lda #fzstpleft #} sta _faza_nr_ex_stp rts_stp_right lda #fzstpright sta _faza_nr rts$}_up equ *jmp_max equ 30 lda _faza_nr cmp #16 bne _stop_spr %} lda #0 sta _faza_nr jmp _up_continue_stop_spr cmp #17 bne _up&}_continue lda #8 sta _faza_nr_up_continue equ * lda _jmp_counter '} cmp #jmp_max bne _readY_no lda #0 sta _jmp_counter lda _old_joy(} and #%11111110 sta _old_joy lda #255 jsr _drop rt)}s_readY ldy _jmp_counter lda _jmp_table,y sta _jmpposition jsr _jmp_ko*}lisions cmp #0 beq _read2Y lda _jmp_counter cmp #1 +} bcs _ye lda #0 sta _jmp_Yposition jmp _no_ye inc _jmp_counter ,} jmp _readY_read2Y ldy _jmp_counter lda _jmp_table,y sta _jmp_Yposition_not-}_readY inc _fz0_5 lda _fz0_5 cmp #4 beq _next_faza inc _jmp_c.}ounter jsr _stand rts_next_faza lda #0 sta _fz0_5 inc _faza/}_nr jsr _skrajna_wart inc _jmp_counter jsr _stand rts_left 0} equ * lda _faza_nr cmp #8 bcc _notr_change lda #0 1} sta _faza_nr rts_notr_change jsr _alf_kolision_verify_up equ * lda _old_joy2} and #up bne __up lda _fz05 beq _ex_left inc _faza3}_nr jsr _skrajna_wart_ex_left rts__up jmp _up_right equ * lda _fa4}za_nr cmp #fzstpleft beq _l2_change cmp #fzstpright beq _l2_chang5}e cmp #8 bcs _notl_change_l2_change lda #8 sta _faza_nr rts6}_notl_change jsr _arh_kolision jmp _verify_up*䛛 org $9d00 icl 'AIR_FIR4'_X_rozpisz eq7}u * sta granica lda _pos_X sec sbc granica lsr @ lsr @ lsr @ sta _posX rts_Y_rozpisz equ * sta granica l8}da _pos_Y sec sbc _jmp_Yposition sec sbc granica lsr @ lsr @ lsr @ lsr @ sta _posY rts_Y_2rozpisz equ * sta 9}granica lda _pos_Y sec sbc _jmpposition sec sbc granica lsr @ lsr @ lsr @ lsr @ sta _posY rts*:}四_aup_kolision equ * lda #$1d sta glowa lda #$18 sta butla j;}sr _aupd_kolision cmp #0 bne _aupexit dec _pos_Y_aupexit rts_ado_kolision equ * lda <}#1 sta glowa lda #8 sta butla jsr _aupd_kolision cmp #0 bne _adoexit =} inc _pos_Y_adoexit rts_jmp_kolisions equ * lda #$1d-2 sta glowa lda #$18-2 sta bu>}tla lda glowa jsr _Y_2rozpisz lda #$3d jsr _X_rozpisz jsr _loc sta _upbyte ?} lda #$3b jsr _rozp lda _faza_nr cmp #8 bcs _gl_4up_gl_3up lda #$40 jsr _roz@}p jmp _2battle_gl_4up lda #$39 jsr _rozp_2battle lda butla jsr _Y_2rozpisz lda #$39 A} jsr _rozp lda #$40 jsr _rozp rts_aupd_kolision equ * lda glowa jsr _Y_roB}zpisz lda #$3d jsr _X_rozpisz jsr _loc sta _upbyte lda #$3b jsr _rozp C} lda _faza_nr cmp #2+18 beq _gl_2up cmp #5+18 beq _gl_up cmp #3+18 beq _gl_D}up cmp #4+18 beq _gl_up_gl_2up lda #$40 jsr _rozp jmp _battle_gl_up lda #$39 jsrE} _rozp_battle lda butla jsr _Y_rozpisz lda #$39 jsr _rozp lda #$40 jsr _rozp F} rts_upbyte dta b(0)glowa dta b(0)butla dta b(0)_jmpposition dta b(0)_st_move dta b(0)_arh_kolision eqG}u * lda #$38 sta _upbyte jsr _arl_kolision cmp #0 bne _arhex inc _pos_X_arhex rtsH}_alf_kolision equ * lda #$41 sta _upbyte jsr _arl_kolision cmp #0 bne _alfex deI}c _pos_X_alfex rts_arl_kolision equ * lda _upbyte jsr _X_rozpisz lda #$1d-1 jsr _Y_rozpisz jsr _loc sta _upbyteJ} lda #$1+1 jsr _rozpY lda #$1+16 jsr _rozpY rts_stand equ * lda _jmp_counter cmK}p #23 beq _st67 cmp #30 bne _st2_st67 lda _old_joy aL}nd #%11111110 beq _st2 lda _faza_nr *zabezpieczenie przed naskokiem na cmp #8 *krawedz M}wysokiej sciany bcs _st9 lda #$41 sta _upbyte jsr _arl_kolision cmp #0 bne _st2 beq _st8N}_st9 lda #$38 sta _upbyte jsr _arl_kolision cmp #0 bne _st2_st8 lda #1 jsr _YO}_2rozpisz lda _faza_nr cmp #8 bcs _st_left lda #$41 P} jsr _X_rozpisz jsr _loc sta _upbyte jmp _st_st_left lda #$38 Q} jsr _X_rozpisz jsr _loc sta _upbyte_st lda _upbyte cmp #0 R} beq _st2 lda _jmp_counter cmp #30 beq _st64 lda _S}pos_Y sec sbc #16 sta _pos_Y_st64 lda #4 (4 kroki) T} sta _st_move (po naskoczeniu na element) lda #0 sta _jmp_counter sta _jmp_U}Yposition lda _old_joy and #%11111110 sta _old_joy_st2 rts_loc V} equ * ldy _posY ldx _posX jsr locate jsr rozpelement W} rts_rozp equ * jsr _X_rozpisz jsr _loc ora _upbyte X} sta _upbyte rts_rozpY equ * jsr _Y_rozpisz jsr _loc Y} ora _upbyte sta _upbyte rts__nodrop jmp _nodrop_drop equ * Z} sta drop_up lda _jmp_counter cmp #0 bne __nodrop lda #1 [} jsr _Y_rozpisz lda _faza_nr cmp #17 beq _dr3 cmp #1\}6 beq _dr4 cmp #8 bcs _dr3_dr4 lda #$3d jmp _dr2_dr3 ]} lda #$3c_dr2 jsr _X_rozpisz jsr _loc bne _nodrop lda drop^}_up cmp #255 beq _dr6 lda drop_counter bne _dr6 l_}da _old_joy and #right bne _dr5 lda _old_joy and #left `} beq _dr98_dr5 lda #3 jmp _dr99_dr98 lda #5_dr99 sta _st_move a} lda #4 sta drop_znacznik inc drop_counter rts_dr6 lda _pos_Y b} clc adc #4 sta _pos_Y inc drop_counter inc _fz0_5 c} lda _fz0_5 cmp #4 bne _no_machaj lda #0 sta _fz0_5d} inc _faza_nr jsr _skrajna_wart_no_machaj lda drop_counter cmp #5 e} bcs _no_mv lda drop_up cmp #255 beq _no_mv lda drop_znacznf}ik beq _dr10 dec drop_znacznik jmp _no_mv_dr10 lda _faza_nr g} cmp #8 bcs _mv_lf jsr _alf_kolision jmp _no_mv_mv_lf jsr _arh_kolh}ision_no_mv ldy #1 rts_nodrop lda #0 sta drop_counter rts_ch_i}obs equ * lda _faza_nr cmp #19 beq _ccl cmp #20 j} beq _ccl cmp #22 beq _ccp cmp #23 beq _ccp rk}ts_ccl lda #16 sta _faza_nr rts_ccp lda #17 sta _faza_nr l} rtsrozpelement equ * ldx #0rozel2 cmp eltable,x beq _nokol m} inx cpx #7 bne rozel2 lda #1 rts_nokol lda #0 n} rtseltable dta b(0),b(16),b(18),b(20),b(22),b(24),b(26) dta b(28),b(44)drop_up o} dta b(0)drop_counter dta b(0)drop_znacznik dta b(0) org $a400 icl 'DANE3' p} icl 'GAMEFONT'unter dta b(0)drop_znacznik dta b(0) org $a400 icl 'DANE3' *_air_hero equ * jsr _obs_ch_control lda portA r} and #%00001111 eor #%00001111 sta _old_joy lda _old_joy and #rs}ight bne _air_right lda _old_joy and #left bne _air_left t} lda _old_joy and #up bne _air_up lda _old_joy and #down u} bne _airdown lda _fz05 bne _nothing jsr _ado_kolision v} rts_nothing lda _faza_nr cmp #3+18 bcs _rt_nothing lda #1+18 w} sta _faza_nr rts_rt_nothing lda #4+18 sta _faza_nr rts_airdown x} jmp _air_down_air_right equ * jsr _arh_kolision lda _old_joy any}d #up bne _up_right lda _old_joy and #down bne _do_right z} lda #4+18 sta _faza_nr rts_up_right jsr _aup_kolision lda #5+18 {} sta _faza_nr rts_do_right jsr _ado_kolision lda #5+18 sta _|}faza_nr rts_air_left equ * jsr _alf_kolision lda _old_joy }} and #up bne _up_left lda _old_joy and #down bne _do_left ~} lda #1+18 sta _faza_nr rts_up_left jsr _aup_kolision lda #2}+18 sta _faza_nr rts_do_left jsr _ado_kolision lda #2+18 }sta _faza_nr rts_air_up equ * jsr _aup_kolision_page lda _faza_nr } cmp #3+18 bcs _rt_up lda #2+18 sta _faza_nr rts_rt_up } lda #5+18 sta _faza_nr rts_air_down equ * lda strig } beq _air_chn jsr _ado_kolison jmp _page_air_chn equ * jsr _air_se}rvice_air_fire lda strig beq _air_fire rts_dymek equ * lda _fa}za_nr cmp #1+18 beq _dym_left cmp #2+18 beq _dym_left } cmp #4+18 beq _dym_right cmp #5+18 beq _dym_right rts_dym_l}eft lda _memory clc adc #24 tax lda 53770 and} #%00000010 ora pmadres+1024,x sta pmadres+1024,x inx lda 53770 } and #%00000111 ora pmadres+1024,x sta pmadres+1024,x inx } lda 53770 and #%00000011 ora pmadres+1024,x sta pmadres+1024,x } rts_dym_right lda _memory clc adc #24 tax lda 53770 } and #%01000000 ora pmadres+1024,x sta pmadres+1024,x inx } lda 53770 and #%11100000 ora pmadres+1024,x sta pmadres+1024,x } inx lda 53770 and #%11000000 ora pmadres+1024,x sta pmadres+102}4,x rts_obs_ch_contr equ * lda _faza_nr cmp #16 beq _ch2 } cmp #17 beq _ch3 rts_ch2 lda #19 sta _faza_nr } rts_ch3 lda #22 sta _faza_nr rtsmsadres equ pmadres+762pociski } jsr _movemissile jsr _miskolision lda 644 bne _gtr jsr _zap}al_gtr rts_movemissile equ * ldy #0_mov8 jsr _mov1 } iny cpy #4 bne _mov8 rts_mov1 jsr _mov0 jsr} _mov5 rts_mov5 ldx #0_mov6 lda _misX_position,x sta 53252,x } inx cpx #4 bne _mov6 rts_mov0 tya tax } stx Xmem lda _rejestr sta _2rejestr cpx #0 beq _mov2_mov3 } lsr _2rejestr dex bne _mov3_mov2 ldx Xmem lda _2rejestr } and #1 beq _offmissile lda _2rejestr and #16 beq _lwmissi}le inc _misX_position,x rts_lwmissile dec _misX_position,x_offmissile rts}_zapal equ * lda opoznienie beq _zap4 dec opoznie}nie rts_zap4 lda #20 sta opoznienie lda #1 sta maska } lda #16 sta maska+1_zap3 lda _rejestr and maska bne _za}p2 lda _rejestr ora maska sta _rejestr ldx _pos_X } lda maska cmp #1 beq _z1 cmp #2 beq _z2 cmp #4 } beq _z3 stx _misX_position+3 jsr _ustYmissile stx _misY_position+3} lda msadres,x ora #%11000000 sta msadres,x jmp _kierunek_z3 } stx _misX_position+2 jsr _ustYmissile stx _misY_position+2 lda msadres,x} ora #%00110000 sta msadres,x jmp _kierunek_z2 stx _misX_position+1 } jsr _ustYmissile stx _misY_position+1 lda msadres,x ora #%00001100} sta msadres,x jmp _kierunek_z1 stx _misX_position jsr _ustYmissile} stx _misY_position lda msadres,x ora #%00000011 sta msadres,x } jmp _kierunek_zap2 asl maska asl maska+1 lda maska cmp #1}6 bne _zap3 rts_kierunek equ * jsr _herokier cmp #0 } beq _lewo lda _rejestr ora maska+1 sta _rejestr rts_le}wo lda maska+1 eor #255 sta maska+2 lda _rejestr and mas}ka+2 sta _rejestr rts_herokier equ * lda _faza_nr cmp #16} bne _hk2 lda #0 rts_hk2 cmp #17 bne _hk3 } lda #1 rts_hk3 cmp #8 bcs _hk4 lda #0 rts_hk4 } lda #1 rts_miskolision equ * ldy #0_kol0 tya } pha jsr _kol1 pla tay iny cpy #4 } bne _kol0 rts_kol1 tya tax stx Xmem lda _}misX_position,x cmp #50 beq _mis_clear cmp #200 beq _mis_clear } lda _misX_position,x sec sbc #$40 lsr @ lsr @ } lsr @ sta Xmissile,x lda _misY_position,x sec sbc #$24} lsr @ lsr @ lsr @ lsr @ sta Ymissile,x } ldy Ymissile,x lda Xmissile,x tax jsr locate jsr rozpelemen}t tax cpx #0 bne _mis_clear_exit rts_mis_clear equ * } ldx Xmem lda #0 sta _misX_position,x lda _rejestr and cl}table,x sta _rejestr lda _misY_position,x tay lda msadres,y } and cl2table,x sta msadres,y rts_ustYmissile equ * lda _pos_Y } sec sbc _jmp_Yposition clc adc #23 tax } rtscltable equ * dta b(%11101110),b(%11011101),b(%10111011),b(%01110111)cl2table equ * dt}a b(%11111100),b(%11110011),b(%11001111),b(%00111111)_rejestr dta b(%00000000)_2rejestr dta b(0)Xmem } dta b(0)_misX_position dta d' 'maska dta d' 'opoznienie dta b(0)_misY_position dta d' 'Xmissile } dta d' 'Ymissile dta d' ' dta d' 'opoznienie dta b(0)_misY_position dta d' 'Xmissile .fzl0 equ * dta d' ',b(28),b(28),b(76),b(12),b(12),b(8),b(48) dta b(3),b(23) dta b(35),b(4}7),b(43),b(111),b(43),b(5),b(7),b(2),b(0) dta b(0),b(32),d' ' dta d' ',b(120),b(224),d' ',b(56),b(}72) dta b(88),b(64),b(64),b(0),b(16),b(40),b(24),b(40),b(24) dta b(56),b(24),b(24),b(24),d' ' dta d' } ',b(96),b(48),b(112),b(115),b(56),b(6),b(4) dta b(32) dta b(4),b(16),b(20),b(16),b(4),b(18),b(0),b(16),b(32) } dta d' ',b(4),b(4),b(4),b(24),b(56),d' ' dta d' ',b(120),b(132),b(2),b(130),b(130),b(131) dta b(128),b(65)},b(73),b(64),b(128) dta b(128),b(128),b(128),b(128),b(64),b(64),b(32),b(69) dta b(70),b(68),b(68),b(34),b(34),b(26)},b(36),b(68),d' 'fzl1 equ * dta d' ',b(28),b(28),b(76),b(12),b(12),b(8),b(48) dta b(3),b(23) dta b(}35),b(47),b(43),b(111),b(43),b(5),b(39),b(66),b(36) dta b(100),b(96),b(16),d' ' dta d' ',b(120),b(224),d}' ',b(56),b(72) dta b(88),b(64),b(64),b(0),b(16),b(40),b(24),b(40),b(88) dta b(8),b(28),b(12),b(12),b(0),b(0),}b(4),d' ' dta d' ',b(96),b(48),b(112),b(115),b(56),b(6),b(4) dta b(32) dta b(4),b(16),b(20),b(16),b(4}),b(18),b(0),b(16),b(0) dta b(16),b(0),b(0),b(96),b(192),b(12),b(24),d' ' dta d' ',b(120),b(132),b(2),b(130),}b(130),b(131) dta b(128),b(65),b(73),b(64),b(128) dta b(128),b(128),b(128),b(128),b(64),b(64),b(64),b(133) dta} b(130),b(130),b(130),b(98),b(146),b(44),b(210),b(34) dta d' 'fzl2 equ * dta d' ',b(28),b(28),b(76),b(12}),b(12),b(8),b(48) dta b(3),b(23) dta b(35),b(47),b(75),b(79),b(19),b(37),b(39),b(66),b(32) dta b(34),b(112),b}(96),b(96),b(0),b(0),b(34),d' ' dta d' ',b(120),b(224),d' ',b(56),b(72) dta b(88),b(64),b(32),b(16),b(8}),b(8),b(24),b(44),b(92) dta b(84),b(6),b(14),b(6),d' ' dta d' ',b(96),b(48),b(112),b(115),b(56),b(6),b}(4) dta b(32) dta b(4),b(16),b(20),b(32),b(36),b(18),b(0),b(16),b(0) dta b(8),b(8),d' ',b(102),b(204),d' '} dta d' ',b(120),b(132),b(2),b(130),b(130),b(131) dta b(128),b(65),b(73),b(64),b(128) dta b(128),b(128),b(}128),b(128),b(64),b(64),b(64),b(129) dta b(130),b(129),b(129),b(145),b(153),b(102),b(153),b(17) dta d' 'fzl3 e}qu * dta d' ',b(28),b(28),b(76),b(12),b(12),b(8),b(48) dta b(3),b(23) dta b(35),b(47),b(75),b(79),b(19),}b(5),b(39),b(2),b(32) dta b(96),b(112),b(48),b(48),d' ' dta d' ',b(120),b(224),d' ',b(56),b(72) } dta b(88),b(64),b(32),b(16),b(8),b(40),b(24),b(44),b(84) dta b(22),b(14),b(6),d' ' dta d' ',b(96),b(4}8),b(112),b(115),b(56),b(6),b(4) dta b(32) dta b(4),b(16),b(20),b(32),b(36),b(18),b(0),b(16),b(8) dta b(8),d' } ',b(6),b(60),b(112),d' ' dta d' ',b(120),b(132),b(2),b(130),b(130),b(131) dta b(128),b(65),b(73),b(64),b(12}8) dta b(128),b(128),b(128),b(128),b(64),b(64),b(64),b(65) dta b(130),b(129),b(129),b(73),b(78),b(57),b(66),b(140)} dta d' 'fzl4 equ * dta d' ',b(28),b(28),b(76),b(12),b(12),b(8),b(48) dta b(3),b(23) dta b(35),}b(47),b(43),b(111),b(43),b(5),b(7),b(2),b(8) dta b(8),b(32),b(0),b(24),d' ' dta d' ',b(120),b(224),d' } ',b(56),b(72) dta b(88),b(64),b(64),b(0),b(16),b(40),b(24),b(40),b(16) dta b(48),b(24),b(24),d' ' dta} d' ',b(96),b(48),b(112),b(115),b(56),b(6),b(4) dta b(32) dta b(4),b(16),b(20),b(16),b(4),b(18),b(0),b(16),b(}32) dta d' ',b(4),b(4),b(4),b(24),b(56),d' ' dta d' ',b(120),b(132),b(2),b(130),b(130),b(131) dta b(128}),b(65),b(73),b(64),b(128) dta b(128),b(128),b(128),b(128),b(64),b(64),b(32),b(69) dta b(70),b(68),b(68),b(34),b(34}),b(26),b(36),b(68) dta d' 'fzl5 equ * dta d' ',b(28),b(28),b(76),b(12),b(12),b(8),b(48) dta b(3),b}(23) dta b(35),b(47),b(43),b(111),b(43),b(5),b(7),b(10),b(8) dta b(12),b(20),b(12),b(12),d' ' dta d' } ',b(120),b(224),d' ',b(56),b(72) dta b(88),b(64),b(64),b(0),b(16),b(40),b(56),b(64),b(48) dta b(112),b(104),d}' ',b(4),d' ' dta d' ',b(96),b(48),b(112),b(115),b(56),b(6),b(4) dta b(32) dta b(4),b(16),b(20),b(}16),b(4),b(18),b(0),b(48),b(64) dta d' ',b(96),b(192),b(12),b(24),d' ' dta d' ',b(120),b(132),b(2),b(130),b}(130),b(131) dta b(128),b(65),b(73),b(64),b(128) dta b(128),b(128),b(128),b(128),b(64),b(64),b(64),b(133) dta }b(134),b(130),b(130),b(114),b(146),b(44),b(210),b(34) dta d' 'fzl6 equ * dta d' ',b(28),b(28),b(76),b(12}),b(12),b(8),b(48) dta b(3),b(23) dta b(35),b(47),b(43),b(111),b(43),b(5),b(7),b(2),b(68) dta b(8),b(22),b(6),}b(6),d' ',b(34),d' ' dta d' ',b(120),b(224),d' ',b(56),b(72) dta b(88),b(64),b(64),b(0),b(16),b(40),b(}56),b(44),b(24) dta b(52),b(104),b(96),b(96),d' ' dta d' ',b(96),b(48),b(112),b(115),b(56),b(6),b(4) } dta b(32) dta b(4),b(16),b(20),b(16),b(4),b(18),b(0),b(16),b(32) dta b(64),d' ',b(102),b(204),d' ' dt}a d' ',b(120),b(132),b(2),b(130),b(130),b(131) dta b(128),b(65),b(73),b(64),b(128) dta b(128),b(128),b(128),b(12}8),b(64),b(64),b(64),b(65) dta b(130),b(30),b(128),b(153),b(153),b(102),b(153),b(17) dta d' 'fzl7 equ * }dta d' ',b(28),b(28),b(76),b(12),b(12),b(8),b(48) dta b(3),b(23) dta b(35),b(47),b(43),b(111),b(43),b(5),b(7),}b(2),b(72) dta b(6),b(86),b(6),d' ' dta d' ',b(120),b(224),d' ',b(56),b(72) dta b(88),b(64),b(}64),b(0),b(16),b(40),b(24),b(44),b(20) dta b(56),b(40),b(48),b(48),d' ' dta d' ',b(96),b(48),b(112),b(1}15),b(56),b(6),b(4) dta b(32) dta b(4),b(16),b(20),b(16),b(4),b(18),b(0),b(16),b(32) dta b(64),d' ',b(6),b(6}0),b(112),d' ' dta d' ',b(120),b(132),b(2),b(130),b(130),b(131) dta b(128),b(65),b(73),b(64),b(128) dta }b(128),b(128),b(128),b(128),b(64),b(64),b(32),b(65) dta b(130),b(129),b(129),b(73),b(78),b(57),b(66),b(140) dta d' } 'fzp0 equ * dta d' ',b(56),b(56),b(50),b(48),b(48),b(16),b(12) dta b(192),b(232) dt}a b(196),b(244),b(212),b(246),b(212),b(160),b(224) dta b(64),d' ',b(4),d' ' dta d' ',b(30),b(7),d' } ',b(28),b(18) dta b(26),b(2),b(2),b(0),b(8),b(20),b(24),b(20),b(24) dta b(28),b(24),b(24),b(24),d' ' d}ta d' ',b(6),b(12),b(14),b(206),b(108),b(96) dta b(32),b(4) dta b(32),b(8),b(40),b(8),b(32),b(72),b(0),b(8),b}(4),d' ' dta b(32),b(32),b(32),b(24),b(28),d' ' dta d' ',b(30),b(33),b(64),b(65),b(65),b(193),b(1) dta }b(130),b(146),b(2),b(1) dta b(1),b(1),b(1),b(1),b(2),b(2),b(4),b(162),b(98),b(34) dta b(34),b(68),b(68),b(88),b(36)},b(34),d' 'fzp1 equ * dta d' ',b(56),b(56),b(50),b(48),b(48),b(16),b(12) dta b(192),b(232) dta b(19}6),b(244),b(212),b(246),b(212),b(160),b(228) dta b(66),b(36),b(38),b(6),b(8),d' ' dta d' ',b(30),b(7),d'} ',b(28),b(18) dta b(26),b(2),b(2),b(0),b(8),b(20),b(24),b(20),b(26) dta b(16),b(56),b(48),b(48),b(0),b(0),b(3}2),d' ' dta d' ',b(6),b(12),b(14),b(206),b(108),b(96) dta b(32),b(4) dta b(32),b(8),b(40),b(8),b(32),}b(72),b(0),b(8),b(0),b(8) dta b(0),b(0),b(6),b(3),b(48),b(24),d' ' dta d' ',b(30),b(33),b(64),b(65),b(65),b(1}93),b(1) dta b(130),b(146),b(2),b(1) dta b(1),b(1),b(1),b(1),b(2),b(2),b(2),b(161),b(65),b(65) dta b(65),b(70)},b(73),b(52),b(75),b(68),d' 'fzp2 equ * dta d' ',b(56),b(56),b(50),b(48),b(48),b(16),b(12) dta b(192),b(2}32) dta b(196),b(244),b(210),b(242),b(200),b(164),b(228) dta b(66),b(4),b(68),b(16),b(6),b(6),d' ',b(68),d' ' } dta d' ',b(30),b(7),d' ',b(28),b(18) dta b(26),b(2),b(4),b(8),b(16),b(16),b(24),b(52),b(58) dta b(42), }b(96),b(112),b(86),d' ' dta d' ',b(6),b(12),b(14),b(206),b(108),b(96) dta b(32),b(4) dta b(32),b(8 }),b(40),b(4),b(36),b(72),b(0),b(8),b(0) dta b(16),b(16),d' ',b(102),b(51),d' ' dta d' ',b(30),b(33),b(64),b }(65),b(65),b(193),b(1) dta b(130),b(146),b(2),b(1) dta b(1),b(1),b(1),b(1),b(2),b(2),b(2),b(129),b(65),b(129) }dta b(129),b(137),b(153),b(102),b(153),b(136),d' 'fzp3 equ * dta d' ',b(56),b(56),b(50),b(48),b(48),b(16),b(12 }) dta b(192),b(232) dta b(196),b(244),b(210),b(242),b(210),b(160),b(228) dta b(64),b(4),b(16),b(14),b(12),b(12 }),d' ' dta d' ',b(30),b(7),d' ',b(28),b(18) dta b(26),b(2),b(4),b(8),b(16),b(20),b(24),b(52),b(42) } dta b(104),b(112),b(96),d' ' dta d' ',b(6),b(12),b(14),b(206),b(108),b(96) dta b(32),b(4) dta } b(32),b(8),b(40),b(4),b(36),b(72),b(0),b(8),b(16) dta b(16),d' ',b(96),b(60),b(14),d' ' dta d' ',b(30),b(3 }3),b(64),b(65),b(65),b(193),b(1) dta b(130),b(146),b(2),b(1) dta b(1),b(1),b(1),b(1),b(2),b(2),b(2),b(130),b(65),b( }129) dta b(129),b(146),b(114),b(156),b(66),b(49),d' 'fzp4 equ * dta d' ',b(56),b(56),b(50),b(48),b(48),b }(16),b(12) dta b(192),b(232) dta b(196),b(244),b(212),b(246),b(212),b(160),b(224) dta b(64),b(16),b(16),b(4),b }(0),b(24),d' ' dta d' ',b(30),b(7),d' ',b(28),b(18) dta b(26),b(2),b(2),b(0),b(8),b(20),b(24),b(20), }b(8),b(12) dta b(24),b(24),d' ' dta d' ',b(6),b(12),b(14),b(206),b(108),b(96) dta b(32),b(4) } dta b(32),b(8),b(40),b(8),b(32),b(72),b(0),b(8),b(4),d' ' dta b(32),b(32),b(32),b(24),b(28),d' ' dta d' ',b }(30),b(33),b(64),b(65),b(65),b(193),b(1) dta b(130),b(146),b(2),b(1) dta b(1),b(1),b(1),b(1),b(2),b(2),b(4),b(162), }b(98),b(34) dta b(34),b(68),b(68),b(88),b(36),b(34),d' 'fzp5 equ * dta d' ',b(56),b(56),b(50),b(48),b(48) },b(16),b(12) dta b(192),b(232) dta b(196),b(244),b(212),b(246),b(212),b(160),b(224) dta b(80),b(16),b(48),b(40 }),b(48),b(48),d' ' dta d' ',b(30),b(7),d' ',b(28),b(18) dta b(26),b(2),b(2),b(0),b(8),b(20),b(28),b( }2),b(12) dta b(14),b(22),d' ',b(32),d' ' dta d' ',b(6),b(12),b(14),b(206),b(108),b(96) dta b(32),b }(4) dta b(32),b(8),b(40),b(8),b(32),b(72),b(0),b(12),b(12) dta d' ',b(6),b(3),b(48),b(24),d' ' dta d' }',b(30),b(33),b(64),b(65),b(65),b(193),b(1) dta b(130),b(146),b(2),b(1) dta b(1),b(1),b(1),b(1),b(2),b(2),b(2),b(16 }1),b(97) dta b(65),b(65),b(78),b(73),b(52),b(75),b(68),d' 'fzp6 equ * dta d' ',b(56),b(56),b(50),b(48),b( }48),b(16),b(12) dta b(192),b(232) dta b(196),b(244),b(212),b(246),b(212),b(160),b(224) dta b(64),b(34),b(16),b }(104),b(96),b(96),d' ',b(68),d' ' dta b(0) dta d' ',b(30),b(7),d' ',b(28),b(18) dta b(26),b(2),b(2) },b(0),b(8),b(20),b(28),b(52),b(24),b(44) dta b(22),b(6),b(6),d' ' dta d' ',b(6),b(12),b(14),b(206),b(10 }8),b(96) dta b(32),b(4) dta b(32),b(8),b(40),b(8),b(32),b(72),b(0),b(8),b(4) dta b(2),d' ',b(102),b(51),d' } ' dta d' ',b(30),b(33),b(64),b(65),b(65),b(193),b(1) dta b(130),b(146),b(2),b(1) dta b(1),b(1),b(1),b(1) },b(2),b(2),b(2),b(130),b(65) dta b(65),b(129),b(153),b(153),b(102),b(153),b(136),d' 'fzp7 equ * dta d' ' },b(56),b(56),b(50),b(48),b(48),b(16),b(12) dta b(192),b(232) dta b(196),b(244),b(212),b(246),b(212),b(160),b(224) } dta b(64),b(18),b(86),b(106),b(96),d' ' dta d' ',b(30),b(7),d' ',b(28),b(18) dta b(26),b(2),b(2 }),b(0),b(8),b(20),b(24),b(52),b(40) dta b(28),b(20),b(12),b(12),d' ' dta d' ',b(6),b(12),b(14),b(206),b }(108),b(96) dta b(32),b(4) dta b(32),b(8),b(40),b(8),b(32),b(72),b(0),b(8),b(4) dta b(2),d' ',b(96),b(60),b( }14),d' ' dta d' ',b(30),b(33),b(64),b(65),b(65),b(193),b(1) dta b(130),b(146),b(2),b(1) dta b(1),b(1),b( !}1),b(1),b(2),b(2),b(4),b(130),b(65),b(129) dta b(129),b(146),b(114),b(156),b(66),b(49),d' ' "}fzol0 equ * dta d' ',b(28),b(28),b(76),b(12),b(12),b(8),b(48) dta b(3),b(23) dta b(35),b(47),b(43),b(11 #}1),b(43),b(5),b(7),b(2),d' ' dta b(32),d' ' dta d' ',b(120),b(224),d' ',b(56),b(72) dta b(88 $}),b(64),b(64),b(0),b(16),b(40),b(24),b(40) dta b(24),b(56),b(24),b(24),b(24),d' ' dta d' ',b(96),b(48), %}b(112),b(115),b(56),b(6),b(4) dta b(32) dta b(4),b(16),b(20),b(16),b(4),b(18),b(0),b(16),b(32) dta d' ',b( &}24),b(56),d' ' dta d' ',b(120),b(132),b(2),b(130),b(130),b(131) dta b(128),b(65),b(73),b(64),b(128) dta '}b(128),b(128),b(128),b(128),b(64),b(64),b(32),b(69) dta b(70),b(68),b(68),b(36),b(36),b(24),b(36),b(68) dta d' ' (}fzol1 equ * dta d' ',b(28),b(28),b(76),b(12),b(12),b(8),b(48) dta b(3),b(23) dta b(35),b(47),b(75),b(79 )}),b(19),b(5),b(7),b(2),b(64) dta b(64),b(32),d' ' dta d' ',b(120),b(224),d' ',b(56),b(72) dta *} b(88),b(64),b(32),b(16),b(8),b(40),b(24),b(40),b(16) dta b(48),b(24),b(24),d' ' dta d' ',b(96),b(48), +}b(112),b(115),b(56),b(6),b(4) dta b(32) dta b(4),b(16),b(20),b(32),b(36),b(18),b(0),b(16),b(32) dta d' ',b( ,}24),b(48),b(0),d' ' dta d' ',b(120),b(132),b(2),b(130),b(130),b(131) dta b(128),b(65),b(73),b(64),b(128) -} dta b(128),b(128),b(128),b(128),b(64),b(64),b(64),b(141) dta b(138),b(136),b(68),b(36),b(24),b(36),b(72),b(48) dta .} d' 'fzol2 equ * dta d' ',b(28),b(28),b(76),b(12),b(12),b(8),b(48) dta b(3),b(23) dta b(35),b(47),b( /}75),b(31),b(43),b(5),b(7),b(66),b(64) dta b(32),d' ' dta d' ',b(120),b(224),d' ',b(56),b(72) 0} dta b(88),b(64),b(32),b(0),b(16),b(40),b(40),b(16),b(48) dta b(24),d' ' dta d' ',b(96),b(48),b(112) 1},b(115),b(56),b(6),b(4) dta b(32) dta b(4),b(16),b(20),b(96),b(4),b(18),b(16),b(32),d' ' dta b(24),b(56),d' 2} ' dta d' ',b(120),b(132),b(2),b(130),b(130),b(131) dta b(128),b(65),b(73),b(64),b(128) dta b(128),b(1 3}28),b(128),b(128),b(64),b(64),b(64),b(141) dta b(138),b(68),b(56),b(36),b(68),b(56),d' ' 4}fzop0 equ * dta d' ',b(56),b(56),b(50),b(48),b(48),b(16),b(12) dta b(192),b(232) dta b(196),b(244),b( 5}212),b(246),b(212),b(160),b(224) dta b(64),d' ',b(4),d' ' dta d' ',b(30),b(7),d' ',b(28),b(18) 6} dta b(26),b(2),b(2),b(0),b(8),b(20),b(24),b(20),b(24) dta b(28),b(24),b(24),b(24),d' ' dta d' ',b(6 7}),b(12),b(14),b(206),b(108),b(96) dta b(32),b(4) dta b(32),b(8),b(40),b(8),b(32),b(72),b(0),b(8),b(4) dta d' 8} ',b(24),b(28),d' ' dta d' ',b(30),b(33),b(64),b(65),b(65),b(193),b(1) dta b(130),b(146),b(2),b(1) dta 9} b(1),b(1),b(1),b(1),b(2),b(2),b(4),b(162),b(98),b(34) dta b(34),b(36),b(36),b(24),b(36),b(34),d' 'fzop1 equ * :} dta d' ',b(56),b(56),b(50),b(48),b(48),b(16),b(12) dta b(192),b(232) dta b(196),b(244),b(210),b(242),b(200), ;}b(160),b(224) dta b(64),b(2),b(2),b(4),d' ' dta d' ',b(30),b(7),d' ',b(28),b(18) dta b(26),b( <}2),b(4),b(8),b(16),b(20),b(24),b(20),b(8) dta b(12),b(24),b(24),d' ' dta d' ',b(6),b(12),b(14),b(206), =}b(108),b(96) dta b(32),b(4) dta b(32),b(8),b(40),b(4),b(36),b(72),b(0),b(8),b(4) dta d' ',b(24),b(12),b(0), >}d' ' dta d' ',b(30),b(33),b(64),b(65),b(65),b(193),b(1) dta b(130),b(146),b(2),b(1) dta b(1),b(1),b(1),b ?}(1),b(2),b(2),b(4),b(162),b(81),b(17) dta b(34),b(36),b(24),b(36),b(18),b(12),d' 'fzop2 equ * dta d' ',b( @}56),b(56),b(50),b(48),b(48),b(16),b(12) dta b(192),b(232) dta b(196),b(244),b(210),b(248),b(212),b(160),b(224) A} dta b(66),b(2),b(4),d' ' dta d' ',b(30),b(7),d' ',b(28),b(18) dta b(26),b(2),b(4),b(0),b(8),b(20 B}),b(20),b(8),b(12),b(24) dta d' ' dta d' ',b(6),b(12),b(14),b(206),b(108),b(96) dta b(32),b(4) C} dta b(32),b(8),b(40),b(6),b(32),b(72),b(8),b(4),d' ' dta b(24),b(28),d' ' dta d' ',b(30),b(33),b(64 D}),b(65),b(65),b(193),b(1) dta b(130),b(146),b(2),b(1) dta b(1),b(1),b(1),b(1),b(2),b(2),b(2),b(177),b(81),b(34) E} dta b(28),b(36),b(34),b(29),d' '* --- --- *dliv equ 512dmactls equ 559dlist eq F}u 560nmien equ 54286wsync equ 54282vcount equ 54283chbase equ 54281* --- --- *f G}onts equ $b800* --- --- ** --- --- *init equ * lda # H}61 sta dmactls lda displaylist I} sta dlist+1 lda #4 sta 708 lda #10 sta 709 J} lda #15 sta 710 rtsdli_on equ * lda dli sta dliv+1 lda #192 sta nmien rtswyswietl L} equ * sta screen,y ora #1 sta screen+1,y rtsposition M} equ * pha txa clc adc piontable,y asl @ N} tay pla jsr wyswietl rtslocate equ * txa O} clc adc piontable,y asl @ tay lda screen,y P} rtstranslacja equ * ldx #0 ldy #0trans lda (reals),y sta s Q}creen,x ora #1 sta screen+1,x inx inx iny R} cpy #128 bne trans rtsdli equ * pha lda vcou S}nt and #4 eor #4 clc adc >fonts sta wsync T} sta chbase pla rti* --- --- *piontable equ * U} dta b(0),b(16),b(32) dta b(48),b(64),b(80) dta b(96),b(112)displaylist equ * V} dta b(112),b(112),b($f0) dta b(196),a(screen) dta b(196),a(screen) dta W}b(196),a(screen+32) dta b(196),a(screen+32) dta b(196),a(screen+64) dta b(196),a X}(screen+64) dta b(196),a(screen+96) dta b(196),a(screen+96) dta b(196),a(screen+ Y}128) dta b(196),a(screen+128) dta b(196),a(screen+160) dta b(196),a(screen+160) Z} dta b(196),a(screen+192) dta b(196),a(screen+192) dta b(196),a(screen+224) [} dta b(196),a(screen+224) dta b(65),a(displaylist)screen equ * dta d' \} ' dta d' ' dta d' ]} ' dta d' ' dta d' ' ^} dta d' ' dta d' ' dt _}a d' 'pl1 equ * dta d'0000008"""""4008' dta d'"400 `}008"6"62<08"' dta d'"" "40028"4008""' dta d'""400000000008""' dta d'""0000000000 a}00""' dta d'""48"400000008""' dta d'""402<008""408""' dta d'""""""""""""""""' b}_pmXY equ * ldx _pos_x lda _pos_Y sec sbc _jmp_Ypositi c}on tay lda _faza_nr stx 53248 stx 53249 stx 53250 d} stx 53251 asl @ tax lda _fz_table,x sta __zero e} lda _fz_table+1,x sta __zero+1 tya tax stx _memory f} ldy #0_sp0 lda (__zero),y sta pmadres+1024,x inx iny g} cpy #34 bne _sp0 jsr _dymek ldx _memory_sp2 lda (__ q}tBmBOHATER ASMBNqAIR_FIR4ASMBDANE3 ASMB%|INFOFONTASMB=LEGENDA ASMB6ZAKONCZ ASMBLVZBIERZASMBLV_DOORSASMBPLZBIERZASMBPL_DOORSASMB@CZOLOWKAASMzero),y sta pmadres+1280,x inx iny cpy #68 bne _sp r}2 ldx _memory_sp3 lda (__zero),y sta pmadres+1536,x inx s} iny cpy #102 bne _sp3 ldx _memory_sp4 lda (__zero),y t} sta pmadres+1792,x inx iny cpy #136 bne _sp4 rt u}s_service_nr dta b(0)_new_joy dta b(0)_old_joy dta b(0)_faza_nr dta b(0)_jmp_counter dta b(0)_ v}jmp_Yposition dta b(0)_fz0_5 dta b(0)_pos_X dta b(100)_pos_Y dta b(70)_fz05 dta b(0)_po w}sX dta b(0)_posY dta b(0)granica dta b(0)_jmp_table equ * dta b(3),b(6),b(8),b(10),b(1 x}2),b(14),b(16),b(17),b(18) dta b(19),b(19),b(20),b(20),b(21),b(21),b(21),b(20),b(20) dta b(19),b(19),b(18),b(17),b( y}16),b(14),b(12),b(10),b(8) dta b(6),b(3),b(0)_fz_table equ * dta a(fzl0),a(fzl1),a(fzl2),a(fzl3),a(fzl4) z},a(fzl5) dta a(fzl6),a(fzl7),a(fzp0),a(fzp1),a(fzp2),a(fzp3) dta a(fzp4),a(fzp5),a(fzp6),a(fzp7),a(fzol0),a(fzop0) {} dta a(fzol0),a(fzol1),a(fzol2) dta a(fzop0),a(fzop1),a(fzop2)fzp4),a(fzp5),a(fzp6),a(fzp7),a(fzol0),a(fzop0)M org infofonts dta d' ' dta d' ',b(255),b(170),b(170),b(170),b(85),b(0) dta d' ',b(63),b(42), }}b(42),b(42),b(21),b(0) dta d' ',b(15),b(10),b(10),b(10),b(5),b(0) dta d' ',b(3),b(2),b(2),b(2),b(1),b(0) dta d' ~} ' dta d' ' dta d' ' dta d' ' dta d' '*. d }ta d' ',b(48),b(0) dta d' '*0-9 dta b(0),b(12),b(50),b(50),b(49),b(49),b(4),b(0) dta b(0),b(3),b(14), }b(2),b(1),b(1),b(1),b(0) dta b(0),b(12),b(50),b(2),b(8),b(48),b(53),b(0) dta b(0),b(12),b(50),b(2),b(9),b(1),b(52),b(0) } dta b(0),b(48),b(50),b(50),b(9),b(1),b(1),b(0) dta b(0),b(62),b(48),b(56),b(1),b(1),b(52),b(0) dta b(0),b(14),b(48) },b(56),b(49),b(49),b(4),b(0) dta b(0),b(60),b(2),b(2),b(5),b(1),b(1),b(0) dta b(0),b(12),b(50),b(8),b(33),b(33),b(4),b( }0) dta b(0),b(12),b(50),b(50),b(9),b(1),b(52),b(0)*: dta d' ',b(48),d' ',b(48),d' ' dta d' ',b(3),b(8),b(60), }b(250) dta b(60),b(250),b(233),b(164),b(16),b(48),b(48),b(36) dta b(233),b(36),b(3),d' ' dta b(24),b(12),b(12),b(19 }6),b(60),b(250),b(233),b(36) dta d' '*A-Z dta b(0),b(12),b(50),b(50),b(57),b(49),b(49),b(0) dta b(0 }),b(60),b(50),b(56),b(49),b(49),b(52),b(0) dta b(0),b(12),b(50),b(48),b(48),b(49),b(4),b(0) dta b(0),b(60),b(50),b(50), }b(49),b(49),b(52),b(0) dta b(0),b(62),b(48),b(56),b(48),b(48),b(53),b(0) dta b(0),b(62),b(48),b(56),b(48),b(48),b(48),b }(0) dta b(0),b(14),b(48),b(48),b(49),b(49),b(5),b(0) dta b(0),b(50),b(50),b(50),b(57),b(49),b(49),b(0) dta b(0),b(62 }),b(8),b(8),b(8),b(8),b(53),b(0) dta b(0),b(62),b(2),b(2),b(1),b(49),b(4),b(0) dta b(0),b(50),b(50),b(56),b(49),b(49),b }(49),b(0) dta b(0),b(48),b(48),b(48),b(48),b(48),b(5),b(0) dta b(0),b(12),b(58),b(58),b(49),b(49),b(49),b(0) dta b(0 }),b(60),b(50),b(50),b(49),b(49),b(49),b(0) dta b(0),b(12),b(50),b(50),b(49),b(49),b(4),b(0) dta b(0),b(60),b(50),b(50), }b(56),b(48),b(48),b(0) dta b(0),b(12),b(50),b(50),b(49),b(49),b(4),b(2) dta b(0),b(60),b(50),b(50),b(56),b(49),b(49),b( }0) dta b(0),b(14),b(48),b(8),b(1),b(1),b(52),b(0) dta b(0),b(62),b(8),b(8),b(8),b(8),b(4),b(0) dta b(0),b(50),b(50), }b(50),b(49),b(49),b(4),b(0) dta b(0),b(50),b(50),b(50),b(49),b(4),b(4),b(0) dta b(0),b(50),b(50),b(50),b(57),b(57),b(4) },b(0) dta b(0),b(50),b(50),b(8),b(8),b(49),b(49),b(0) dta b(0),b(50),b(50),b(50),b(8),b(8),b(4),b(0) dta b(0),b(62), }b(2),b(8),b(8),b(48),b(53),b(0)* dta d' !!!!!"' dta d' ' dta b(91),d'"!!!!! ' dta b(148),d' ' d }ta d' $$',b(25),d'$$ '****znaki specjalne*1dysk dta b(0),b(0),b(63),b(59),b(59),b(63),b(42),b(41) dta b(0),b(12), }b(50),b(50),b(57),b(49),b(49),b(3)*2dysk dta b(0),b(0),b(250),b(186),b(185),b(250),b(170),b(26) dta b(3),b(12),b(50),b }(48),b(48),b(49),b(4),b(0)*3dysk dta b(40),b(41),b(42),b(42),b(42),b(42),b(42),b(0) dta b(0),b(62),b(48),b(56),b(48), }b(48),b(57),b(3)*4dysk dta b(10),b(26),b(98),b(42),b(42),b(42),b(170),b(0)*fuel dta b(0),b(9),b(39),b(31),b(63),b( }63),b(61),b(61) dta b(0),b(240),b(252),b(15),b(195),b(243),b(95),b(255) dta b(61),b(61),b(61),b(61),b(63),b(62),b(11),d }' ' dta b(126),b(255),b(250),b(238),b(187),b(250),b(165),d' '*1bron dta d' ',b(255),b(254),b(234) dta b(0),b( }48),b(48),b(56),b(48),b(48),b(5),b(0)*2bron dta d' ',b(4),b(214),b(106),b(170) dta b(3),b(60),b(50),b(50),b(49),b( }49),b(49),b(0) dta b(3),b(12),b(50),b(50),b(49),b(49),b(4),b(0)*copyright c dta b(0),b(14),b(48),b(48),b(51),b(48),b( }48),b(10) dta b(0),b(168),b(2),b(226),b(1),b(81),b(1),b(84)*spec dta b(255),b(170),b(170),b(170),b(170),b(170),b(85), }b(0) dta b(3),b(14),b(48),b(8),b(1),b(1),b(52),b(0)*spec dta b(0),b(255),b(170),b(170),b(170),b(170),b(170),b(85)*s }pec dta b(233),b(233),b(234),b(234),b(234),b(234),b(234),b(213)*spec dta b(233),b(233),b(233),b(233),b(233),b(233),b(2 }33),b(233)*spec dta b(233),b(233),b(169),b(169),b(169),b(169),b(165),b(85)*spec dta b(253),b(169),b(169),b(169),b(169 }),b(169),b(233),b(233)*spec dta b(255),b(254),b(250),b(234),b(238),b(250),b(233),b(233)*spec dta b(12),b(62),b(2),b(8 }),b(8),b(48),b(53),b(0)*34bron dta d' ' dta b(170),b(42),b(42),b(42),b(42),b(42),b(8),b(0)*microprocesor }dta b(0),b(0),b(3),b(15),b(3),b(3),b(14),b(2) dta b(0),b(0),b(248),b(235),b(168),b(168),b(171),b(168) dta b(2),b(14),b( }2),b(2),b(14),b(2),d' ' dta b(168),b(171),b(168),b(168),b(171),b(168),b(160),d' '68),b(171),b(168) dta b(2),b(14),b( Winfofonts equ $8800adr equ $f0 org $480 opt %10101 ldx #66} lda 53770 cmp #75 bcs *+4 bcc *-7 cmp #178 } bcs *-11 sta zamiec,x dex bne *-17 lda wpr_dan sta adr+1 lda >infofonts sta 756 } lda wpr_display sta 561 }lda wpr_nmi sta 553 lda #1 s}ta 538 lda wpr_dli sta 513 }lda #3 sta 53277 lda #192 sta 54286 lda #8 sta 708} lda #10 sta 709 lda #15 sta 710 sta 704 } lda #61 sta 559 lda #222 sta 54279 jmp *wpr_dli }equ * pha txa pha ldx #66 lda zamiec,x } sta 54282 sta 53252 dex bne *-10 lda #0 sta }53252 pla tax pla rtiwpr_nmi equ * lda }#1 sta 538 lda Y_licz cmp #192 bne *+7 inc Y_licz}+2 beq *+14 lda 764 cmp #255 beq nmi2 lda #255 } sta 764 lda #0 sta Y_licz inc Y_licz+1 lda adr } clc adc #192 sta adr bcc nmi2 inc adr+1nmi2 } lda Y_licz+1 cmp #8 bcc *+5 jmp sciemniaj lda Y_licz } cmp #192 bcs *+5 inc Y_licz ldy Y_licz cpy #192 } bcs *+7 lda (adr),y sta wpr_txt+64,y ldx #66 dec zamiec,x } dec zamiec+1,x dec zamiec+1,x dex dex bne *-11 } ldx #66 lda zamiec,x cmp #75 bcs *+7 lda #178 } sta zamiec,x dex bne *-13 rtssciemniaj equ * lda 70}8 and #%00001111 beq *+5 dec 708 lda 709 and #%000}01111 beq *+5 dec 709 lda 710 and #%00001111 beq *}+5 dec 710 lda 704 and #%00001111 beq *+5 dec 704} rtsY_licz dta d' 'zamiec equ * dta d' } ' dta d' 'wpr_display equ * dta d'pppp' dt}a b(68),a(wpr_ekr) dta b(4),b(4),b(4) dta b(4+128),b(4),b(4) dta b(4),b(4),b(4)} dta b(4),b(4),b(4) dta b(4) dta b(4),b(4),b(4) dta b(4) } dta b(65),a(wpr_display) org $a000wpr_ekr equ * dta d' _ [\ } _ ' dta d' [\ _ ]^ ' dta d' ]^ _ _ _ ' } dta d' _ _ 'wpr_txt dta d'_  ' dta }d'  _ ' dta d'   ' dta d'  }  ' dta d'_   ' dta d'  } _ ' dta d'   ' dta d'   ' } dta d'[\  _' dta d']^ ' dta d' } _ _ ' dta d' _ _ _ _ [\ ' dta d' _ [\ } ]^ ' dta d' _ ]^ _ 'wpr_dan equ * dta d'  JEST }ROK 5477.  ' dta d'   ' dta d'_  DO ZIEMI ZBLIA SI}  ' dta d'  JEDEN Z PATROLI _ ' dta d'  STRZEGCYCH NASZ UK AD  ' } dta d'  S ONECZNY.  ' dta d'  RAPORT NR 5477-03-27A:  ' dta }d'   ' dta d'_  NEGOCJACJE POKOJOWE  ' dta d'  Z MIESZKA}CAMI PLANETY _ ' dta d'  SQUO ZAKOCZY Y SIE  ' dta d'  FIASKIEM. }  ' dta d'  DO ZIEMI ZBLIA SI  ' dta d'  ESKADRA MYLIWCW  ' } dta d'_  NIEPRZYJACIELA.  ' dta d'  PRZEWIDYWANY ATAK _ ' dta d' } NASTPI ZA OKO O  ' dta d'  2 GODZINY.  ' dta d'  RAPORT NR 54}77-03-27B:  ' dta d'   ' dta d'_  NAJWANIEJSZA STRATEGI-  } ' dta d'  CZNIE STACJA ORBITALNA, _ ' dta d'  EARTH 2B ZOSTA A  ' } dta d'  OPANOWANA PRZEZ WROGA.  ' dta d'  ROZKAZ NR 65-SX-486:  ' dta d'  }  ' dta d'_  WYS A NA ZAJT STACJ  ' dta d'  ORBITALN NAJLEP}SZEGO _ ' dta d'  CZ OWIEKA Z BRYGADY  ' dta d'  KOSMICZNYCH KOMANDOSW.  '} dta d'  CEL AKCJI:  ' dta d'   ' }dta d'_  WYDOSTA Z OPANOWANEJ  ' dta d'  BAZY TAJN BRO ATOMOW _ ' dta d'  UK}RYT W SZECIU  ' dta d'  TAJNYCH MIEJSCACH.  ' dta d'  RAPORT NR 5477-03-2}7C:  ' dta d'   ' dta d'_  NASZ CZ OWIEK ZOSTA  ' } dta d'  ODTRANSPORTOWANY NA E2B. _ ' dta d'   ' dta }d'   ' dta d'  RAPORT NR 5477-03-27D:  ' dta d'  }  ' dta d'_  DO ATAKU Z KOSMOSU  ' dta d'  ZOSTA O JESZCZE: } _ ' dta d'   ' dta d'  36 MINUT.  ' } icl 'INFOFONT'a d'   ' dta d'  36 MINUT.  ' infofonts equ $8800adr equ $f0 org $480 opt %10101 ldx #66} lda 53770 cmp #75 bcs *+4 bcc *-7 cmp #178 } bcs *-11 sta zamiec,x dex bne *-17 lda kon_scrol sta adr+1 lda >infofonts sta 7}56 lda wpr_display sta 561 } lda wpr_nmi sta 553 lda #1 } sta 538 lda wpr_dli sta 513 } lda #3 sta 53277 lda #192 sta 54286 lda #8 sta} 708 lda #10 sta 709 lda #15 sta 710 sta 704 } lda #61 sta 559 lda #222 sta 54279 jmp *wpr_dli } equ * pha txa pha ldx #66 lda zamiec,x } sta 54282 sta 53252 dex bne *-10 lda #0 }sta 53252 pla tax pla rtiwpr_nmi equ * }lda #1 sta 538 lda scrol+4 beq *+16 cmp #1 beq *+}8 dec scrol+4 jmp nmi2 jsr sciemniaj rts inc scro}l+3 lda scrol+3 cmp #3 bne nmi2 lda #0 sta scrol+3} lda scrol+1 sta pp lda scrol+2 sta pp+1 lda scro} dta d'  CEL AKCJI:  ' dta d'   ' } lda #0 sta scrol lda scrol+1 clc adc #32 }RYT W SZECIU  ' dta d'  TAJNYCH MIEJSCACH.  ' dta d'  RAPORT NR 5477-03-2}7C:  ' dta d'   ' dta d'_  NASZ CZ OWIEK ZOSTA  ' } dta d'  ODTRANSPORTOWANY NA E2B. _ ' dta d'   ' dta }d'   ' dta d'  RAPORT NR 5477-03-27D:  ' dta d'  }  ' dta d'_  DO ATAKU Z KOSMOSU  ' dta d'  ZOSTA O JESZCZE: } _ ' dta d'   ' dta d'  36 MINUT.  ' } icl 'INFOFONT'a d'   ' dta d'  36 MINUT.  ' infofonts equ $8800adr equ $f0 org $480 opt %10101 ldx #66} lda 53770 cmp #75 bcs *+4 bcc *-7 cmp #178 } bcs *-11 sta zamiec,x dex bne *-17 lda kon_scrol sta adr+1 lda >infofonts sta 7}56 lda wpr_display sta 561 } lda wpr_nmi sta 553 lda #1 } sta 538 lda wpr_dli sta 513 } lda #3 sta 53277 lda #192 sta 54286 lda #8 sta} 708 lda #10 sta 709 lda #15 sta 710 sta 704 } lda #61 sta 559 lda #222 sta 54279 jmp *wpr_dli } equ * pha txa pha ldx #66 lda zamiec,x } ' dta d' _ _ ' dta d' _ _ _ _ [\ ' }sta 53252 pla tax pla rtiwpr_nmi equ * } dta d'   ' dta d'   ' d}8 dec scrol+4 jmp nmi2 jsr sciemniaj rts inc scro}  ' dta d'   ' dta d'  MISJA WYKONANA. } lda scrol+1 sta pp lda scrol+2 sta pp+1 lda scro} dta d'  ZDY E NA CZAS  ' dta d'   ' dta d' }  POWRCI NA ZIEMI  ' dta d'   ' dta d'  Z SUPER BRO }NI ATOMOW  ' dta d'   ' dta d'  KTRA ZAPEWNI ZIEMIANOM  } ' dta d'   ' dta d'  ZWYCISTWO W WALCE Z  '  } dta d'   ' dta d'  MIESZKACAMI PLANETY  ' dta d'  }  ' dta d'  SQUO.  ' dta d'  }  ' dta d'   ' dta d'   'e}nd dta d'  ...  ' dta d'   ' d}ta d'  KONIEC GRY  ' dta d'   ' dta d'  } ...  ' dta d'   ' dta d'   }  ' dta d'   ' icl 'INFOFONT' d'   a org $7e00*disks dta a(lv4),a(lv12),a(lv24),a(lv36),a(lv51)*fuel dta a(lv28),a(lv62)*supra dta a(lv68)},a(lv56)*micro dta a(lv47)*energy dta a(lv20),a(lv45),a(lv23)*bron dta a(lv53)*unkill dta a(lv9),a(lv64)*energy} dta a(lv55)*fuel dta a(lv33) dta a(lv20),a(lv45),a(lv23)*bron dta a(lv53)*unkill dta a(lv9),a(lv64)*energy% org $7f00 dta a(lv7),a(lv32),a(lv40),a(lv47),a(lv59)66) icl 'PL35_70' L org $7e00*disks dta a(pl3),a(pl32),a(pl6),a(pl53),a(pl48)*fuel dta a(pl26),a(pl34),a(pl42),a(pl44),a(pl4"}9),a(pl63)*microprocesor dta a(pl37)*energia dta a(pl4),a(pl18),a(pl36),a(pl58),a(pl70)*bron dta a(pl13),a(pl39),a(p"}l57)*unkill dta a(pl17),a(pl65),a(pl20),a(pl21)*supra dta a(pl15),a(pl60)(pl70)*bron dta a(pl13),a(pl39),a(p W org $7f00 dta a(pl22),a(pl38),a(pl49),a(pl52),a(pl56),a(pl66) icl 'PL35_70' $S org $480 opt %10101max1 equ 6max2 equ 10max3 equ 14summax *} equ max1+max2+max3text equ $f0 lda #$90 sta 756 ldx #0rloop*} lda 53770 sta kosmotable,x inx cpx #93 bne rloop *} lda #0 sta kosmotable+94 lda wys* }text sta text+1 lda display *!} sta 561 lda nmi sta 553 lda #6*"}1 sta 559 lda #1 sta 538 lda dli sta 513 lda #192 sta 54286 lda #3 *$}sta 53277 lda #$f0 sta 54279 lda #15 sta 704 lda #*%}64 sta txtcounter rtsnmi equ * lda #1 sta 538 *&} ldx #0nloop inc kosmotable,x inc kosmotable+1,x inc kosmotable+1,x *'} inx inx cpx #94 bne nloop ldx #0n2loop inc kosm*(}otable,x inc kosmotable,x txa clc adc #5 tax *)} cpx #90 bne n2loop jsr __scrol inc tmp lda tmp **} cmp tempo beq nmi2 rtsnmi2 lda #0 sta tmp ld*+}a txtcounter bne _clear lda #4 sta tempo lda color1 *,} cmp #max1 beq _col2 inc color1_col2 lda color2 cmp #max2 *-} beq _col3 inc color2_col3 lda color3 cmp #max3 beq _col4 *.} inc color3_col4 lda color1 clc adc color2 clc adc*/} color3 cmp #summax bne _col5 lda #60 sta tempo ld*0}a #64 sta txtcounter_col5 rts_clear ldx txtcounter lda #0 sta*1} filmtext,x dec txtcounter lda #1 sta tempo lda txtcounter *2} bne _c3 lda color1 ora color2 ora color3 beq nap *3} inc txtcounter ldy #0 sty color1 sty color2 sty color3 *4} rtsnap ldy #0napisz lda (text),y sta filmtext,y iny *5} cpy #64 bne napisz lda text clc adc #64 sta *6}text bcc _c2 inc text+1_c2 lda text cmp koniecwyswietlanie bne _c4 lda wystext sta text+1_c4 lda #30 sta*9} tempo_c3 rts__scrol equ * lda scrol beq skok dec scrol *:} rtsskok inc mlodszy lda mlodszy cmp } sta 53271 lda #15 sta 53272 inx cpx #95 *?} bne d0loop lda dli1 sta 513 pl*@}a tax pla rtidli1 equ * pha txa *A} pha ldx #0dloop lda tecza,x sta 54282 sta 53274 *B} inx cpx #14 bne dloop lda dl*C}i2 sta 513 pla tax pla rtidli2 equ **D} pha lda color1 sta 53270 lda color2 sta 53271 *E} lda color3 sta 53272 lda dli3 *F} sta 513 pla rtidli3 equ * pha txa *G} pha lda scrol sta 54276 lda mlodszy sta scadr *H} lda starszy sta scadr+1 ldx #0d3loop lda rura,x sta 54282 *I} sta 54282 sta 53270 ora #2 sta 53272 inx *J}cpx #4 bne d3loop lda dli sta 5*K}13 pla tax pla rti org $a000scrol d*L}ta b(0)mlodszy dta l(sctext)starszy dta h(sctext)color1 dta b(0)color2 dta b(0)color3 *M} dta b(0)display equ * dta d'p',b(240) dta b(64+5),a(txt) dta d'pp',b(4),d'p',b(4*N}),d'p',b(4) dta d'p',b(4) dta b(240) dta d'pp',b(240) dta b(64+4),a(filmtext) *O} dta d'p',b(4),d'pp',b(240) dta b(64+6+16)scadr dta a(sctext) dta b(65),a(display)tecza *P} dta b(2),b(4),b(6),b(8),b(10),b(12),b(14) dta b(12),b(10),b(8),b(6),b(4),b(2),b(0)rura dta b(6),b(*Q}8),b(12),b(8),b(4),b(0)txtcounter dta b(0)tempo dta b(1)tmp dta b(0)filmtext equ * *R} dta d' ' dta d' 'wystext equ * dta d' *S} PROGRAM: ' dta d' JANUSZ GRZYB ' dta d' GRAFIKA: ' *T}dta d' JANUSZ GRZYB ' dta d' MUZYKA: ' dta d' JANUSZ GRZYB *U} ' dta d' DYSTRYBUCJA: ' dta d' L.K AVALON 'koniecwys equ *txt *V} equ * dta d' ĠŠԠ ' dta d' START ... ROZPOCZCIE GRY ' dta d' SELECT *W}... MUZYKA LUB FX ' dta d' OPTION ... KOLOR LUB MONO ' dta d' ESCAPE ... PRZERWANIE GRY 'kosmotable*X} dta d' ' dta d' ' dta d' *Y} ' dta d' ' org $8500sctext equ * dta*Z} d' ' dta d'... AROUND THE PLANET ... ' dta d' AUTOR: JANUSZ GRZYB *[} ' dta d' DYSTRYBUCJA: L.K.AVALON ' dta d' 'endek equ *USZ GRZYB (sist sta dlist+1 rtsdli_on equ * lda #0 sta sojusz ]} lda dli sta dliv+1 lda #192 ^} sta nmien rtswyswietl equ * sta screen,y ora #1 _} sta screen+1,y rtsposition equ * pha txa clc `} adc piontable,y asl @ tay pla jsr wyswietl rta}slocate equ * txa clc adc piontable,y asl @ b} tay lda screen,y rtstranslacja equ * ldx #0 ldy #0tc}rans lda (reals),y sta screen,x ora #1 sta screen+1,x ind}x inx iny cpy #128 bne trans rtsdli ee}qu * pha txa pha ldx sojusz lda chbastable,x f} sta 54282 sta 54281 inc sojusz lda sojusz cmp #17 g} bne dli_exit lda #0 sta sojuszdli_exit pla tax h} pla rtisojusz dta b(0)_zm equ * lda _pos_X cmp #64 i} beq _ch1 cmp #183 beq _ch2 lda _pos_Y cmp #28 j} beq _ch3 cmp #130 bcs _ch4 rts_ch1 ldy #128 lk}da #182 sta _pos_X jmp _2change_ch2 ldy #130 lda #65 sl}ta _pos_X jmp _2change_ch3 jsr _pmbclear ldy #132 lda #128 m} sta _pos_Y jmp _2change_ch4 jsr _pmbclear ldy #134 lda #29 n} sta _pos_Y jmp _2change_2change lda (reals),y tax iny o} lda (reals),y sta reals+1 stx reals jsr translacja jsr _dop}_zebrania ldx #0 jsr _opn_door jsr _newwsp rts_do_zebrania q}equ * ldy #0 lda reals_do_z3 cmp zebtable,y beq _do_z2_do_z4 r}iny iny cpy #10 bne _do_z3 rts_do_z2 lda reals+1 s} cmp zebtable+1,y bne _do_z4 tya pha lda reals t} pha lda reals+1 pha lda eladrtable,y sta reals u} lda eladrtable+1,y sta reals+1 ldy #0 ldx #0zb_el lda (reals),y v} sta fonts+288,x inx iny cpx #16 bne zb_el w} ldx #0zb_el2 lda (reals),y sta fonts+1024+288,x inx iny x} cpx #16 bne zb_el2 pla sta reals+1 pla sta y}reals pla lsr @ tay lda zebratable,y beq _juz_zez}brany lda pozyc_table,y asl @ tay lda #36 jsr wysw{}ietl_juz_zebrany rts_kasuj_element equ * ldy #0 lda realsdo_z3 cmp zebtable,y |} beq do_z2do_z4 iny iny cpy #10 bne do_z3 }}rtsdo_z2 lda reals+1 cmp zebtable+1,y bne do_z4 lda eladrtable,y ~} cmp dysk bne }_other sed lda kieszen clc adc #1 sta kieszen } cld jmp _maz_other lda eladrtable,y cmp bron bne _2other sed lda ki}eszen+1 clc adc #10 sta kieszen+1 cld jmp _maz_2}other lda eladrtable,y cmp fuel bne _3other sed lda kieszen+2 clc }adc #50 sta kieszen+2 lda kieszen+2 cmp #99 bcc _nofull } lda #99 sta kieszen+2_nofull cld jmp _maz_3other equ * l}da eladrtable,y cmp u}nkill bne _4other lda #255 sta kieszen+3 jmp _maz_4other } nop_maz tya lsr @ tay lda #0 sta zebratable,y } lda pozyc_table,y asl @ tay lda #pusty jsr wyswietl } rts_opn_door equ * ldy #0 lda reals_opn3 cmp doortable,y } beq _opn2_opn4 iny iny cpy #6 bne _opn3 rts_opn2} lda reals+1 cmp doortable+1,y bne _opn4 tya lsr @ } tay cpx #0 beq _opn5 lda #0 sta odoortable,y_opn5 } lda odoortable,y beq _open rts_open ldy #0_open3 lda screen,y } cmp #82 beq _open4 cmp #80 bne _open2 lda #18 } sta screen+32,y ora #1 sta screen+33,y jmp _open2_open4 lda #16 } jsr wyswietl_open2 iny iny bne _open3 rts_pmbclear }equ * lda #0 ldx #0_clear sta pmadres+1024,x sta pmadres+1280,x } sta pmadres+1536,x sta pmadres+1792,x sta msadres,x inx }bne _clear rts_inf equ * lda kieszen+2 jsr _inf2 stx} info+6 sty info+5 lda kieszen jsr _inf2 stx info+3 } sty info+2 lda kieszen+1 jsr _inf2 stx info+9 sty info+8 } rts_inf2 pha and #%00001111 clc adc #16 tax } pla lsr @ lsr @ lsr @ lsr @ clc } adc #16 tay rtszebtable dta a(pl1),a(pl3),a(pl13),a(pl14),a(pl9) } dta a(pl2)doortable dta a(pl12),a(pl13),a(pl14)zebratable dta d'22222'odoortable dta b(0),b(0),b(2)poz}yc_table dta b(5),b(64),b(33),b(12),b(99)eladrtable dta a(unkill),a(fuel),a(dysk),a(bron),a(fuel) dta }a(fuel)fuel equ 50000bron equ 0dysk equ 1536unkill equ 44444 icl 'D}:DANE_ATP.ASM' icl 'D:SPRITE2' icl 'D:DANE5_SP.ASM' icl 'D:BOHATER.ASM' } icl 'D:AIR_FIR4.ASM' icl 'D:DANE3.ASM' icl 'D:PL1_34.ASM' icl 'D:GAMEFONT}.ASM' icl 'D:INFOFONT.ASM' org $2e0 dta a(poczatek) icl 'D:GAMEFONTb/